home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #45 (1990-06-20)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #45 (1990-06-20)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
ANWENDUNGEN
/
Ncomm
/
Paragon.script
< prev
next >
Wrap
Text File
|
1990-06-08
|
2KB
|
47 lines
;
; Script for grabbing new messages from Paragon systems
; Must be executed from phonebook, or 'DIAL' command
; line must be inserted as well as password.
;
; Paragon message download utility must have been configured
; with Xmodem-1K protocol and ZOO archiving format.
; (perform one download / grab before using script)
;
when "More? [Y/n/c] " send "N"
when "No messages taken. Aborting..." goto Scan
when "[D]ownload [Q]uit [V]iew: " send "\n"
when "waiting messages now?" send "N\w^C"
when "Press return..." send "\n"
when "bulletin number (Q to Quit): " send "Q\n"
converse "to enter the BBS" "!^C\w^C"
converse "if no account): " "Firstname Lastname\n"
converse "Password: " "\p\n\w^C\w^C"
;Get the messages...
converse "(? for menu): " "M;D\n^C"
converse "Reconfigue? [y/N] " "N"
converse "counters? [Y/n] " "Y\w\w\w\w^C"
converse "Base to grab messages from: " "A\n"
converse "Grab more? [y/N] " "N"
converse "[S]tart: " "S\n"
download "ram:messages.zoo", Y
Scan: ;Scan for new files
converse "" "^C"
converse "New message area: " "Q\n^C"
converse "(? for menu): " "F;N\n"
capture "ram:files" ;Save in file
wait "File library: "
capture off
send "Q\n^C"
;Log off!
converse "(? for menu): " "G\n"
converse "Logoff? [Y/n] " "Y"
converse "Leave feedback? [y/N] " "N"
wait "NO CARRIER"
cd "ram:"
cli "zoo -e ram:messages.zoo"
message "\nEnd of script.\n"